home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 14 / 014.d81 / memory finder (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  32 lines
  1. 0 gosub10000:print"[147]"
  2. 1 s=2049:fori=1to9e9:m=peek(s)+peek(s+1)  *256:l=peek(m+2)+peek(m+3)*256
  3. 2 printl,m+4:s=m:ifpeek(197)=64thennext
  4. 3 :
  5. 5 :
  6. 10000 print"[147]            memory finder"
  7. 10002 print" memory finder will find the line "
  8. 10004 print"numbers of any program in memory.  the"
  9. 10006 print"line numbers are printed in the left"
  10. 10008 print"column and the memory address of that"
  11. 10010 print"line is printed in the right column."
  12. 10012 print" when the line numbers begin to lose"
  13. 10014 print"any semblance of order, you can press"
  14. 10016 print"a key to exit and start over if you"
  15. 10018 print"wish.":print"            <press a key>"
  16. 10019 poke198,0:wait198,1:poke198,0
  17. 10020 print"[147]       1.  run memory finder"
  18. 10022 print"       2.  return to loadstar"
  19. 10024 print" which ?";
  20. 10026 poke198,0:wait198,1:geta$
  21. 10028 ifa$<>"1"anda$<>"2"then                 poke53280,rnd(1)*15:goto10026
  22. 10030 ifa$="1"thenreturn
  23. 10032 ifa$="2"then63020
  24. 10040 :
  25. 63000 rem  link back to loadstar
  26. 63005 print"[147]would you like to try it again ?";
  27. 63007 qpoke198,0:wait198,1:geta$:ifa$<>"n"anda$<>"y"thenpoke53280,rnd(1)*15:goto63007
  28. 63008 ifa$<>"n"anda$<>"y"thenpoke53280,rnd(1)*15:goto63007
  29. 63010 ifa$="y"then1
  30. 63020 print"[147]load"chr$(34)"payload"        chr$(34)",8":print"run"
  31. 63022 poke631,13:poke632,13:poke198,2:end
  32.